(ps-control-character): Fix previous change.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 786828fd914bb4aea7ae96f856c428cddcac9b7b..4e6f022b7aac0e694a5fe348d8bcfd7cb5d1240f 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3837,7 +3837,7 @@ EndDSCPage\n"))
     (if (< (car wrappoint) to)
        (ps-continue-line))
     (setq ps-width-remaining (- ps-width-remaining (* len char-width)))
-    (ps-mule-prepare-ascii-font)
+    (ps-mule-prepare-ascii-font str)
     (ps-output-string str)
     (ps-output " S\n")))